SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TDPRRE_GAST_D01]
/*---------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                  --*/
/*---Cliente              : OFISIS S.A.                  --*/
/*---Sistema              : Tesoreria                    --*/
/*---M«dulo               : Empresa                      --*/
/*---Programa             : Eliminaci½n TDPRRE_GAST	 --*/
/*---Desarrollado por     : Carlos Marquez Escobar       --*/
/*---Fecha Creaci«n       : 25/11/2004                   --*/
/*---Base Datos           : Microsoft Sql Server         --*/
/*---Versi«n              : 8.0                          --*/
/*---Invoca a SP          :                              --*/
/*---------------------------------------------------------*/
/*---------------------------------------------------------*/
/*---Modificado 1 por     :                              --*/
/*---Fecha Modificaci«n   :                              --*/ 
/*---Detalle Modificaci«n :                              --*/
/*---------------------------------------------------------*/

/*---------------------------------------------------------*/
/*---Comentarios                                         --*/
/*---                                                    --*/
/*---                                                    --*/
/*---------------------------------------------------------*/
/*---------------------------------------------------------*/
/*---Drop Proc SP_TDPRRE_GAST_D01                        --*/
/*---Grant all on SP_TDPRRE_GAST_D01 to public           --*/ 
/*---SP_TDPRRE_GAST_D01 '01' , 1, 1, '03/01/1999',       --*/
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/
/*---------------------------------------------------------*/
@ISCO_EMPR	TD_VC_002, 
@ISCO_UNID_CNTB	TD_VC_003,  
@INNU_PRRE_GAST	TD_VC_010, 
@IDFE_PRRE_GAST	TD_DT_001, 
@INNU_CORR	TD_IN_001
	As
declare 
@VSST_AUXI_0008 TD_VC_003,
@VSCO_PROV 	TD_VC_020,
@VSCO_TIPO_DOCU TD_VC_003,
@VSNU_DOCU_PROV TD_VC_020,
@VSST_PROV_AUTO TD_VC_001,
@VSNU_ASTO	TD_VC_010,
@VDFE_REGI_COMP TD_DT_001,
@VSCO_UNID_CONC TD_VC_003

BEGIN TRAN

	Delete  TDPRRE_GAST
	Where 	CO_EMPR = @ISCO_EMPR
		And CO_UNID_CONC = @ISCO_UNID_CNTB
		And NU_PRRE_GAST = @INNU_PRRE_GAST
		And FE_PRRE_GAST = @IDFE_PRRE_GAST
		And NU_CORR_GAST = @INNU_CORR

	IF (@@ERROR != 0)
	    BEGIN	
	      RAISERROR 20001 'ERROR DE INSERCION'
	      ROLLBACK TRAN
	      RETURN
	END

COMMIT TRAN

/*--------------------------- Fin -------------------------------- */


GO
